home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / TEST2.PRO < prev    next >
Encoding:
Prolog Source  |  1979-12-31  |  644 b   |  24 lines
  1. domains
  2.      name,password=symbol
  3. predicates
  4.      getinput(name,password)
  5.      logon(integer)
  6.      user(name,password)
  7. clauses
  8.      logon(3).
  9.      logon(_):-
  10.        clearwindow,
  11.        getinput(Name,Password),
  12.        user(Name,Password),
  13.        write("You are now logged on."),nl. 
  14.      logon(N):-
  15.        N=N+1,
  16.        write("Sorry you are not permitted access."),
  17.        write("Please try again."),nl,
  18.        logon(N).
  19.      getinput(Name,Password):-
  20.        write("Please enter your name"),nl,
  21.        readln(Name),nl,
  22.        write("Please enter password :"),       
  23.        readln(Password),nl.
  24.        user(asif,superman).